home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 January / inter@ivo 1997-01.iso / cybint12 / bin / artef.dxr / 00182_MOVIE.ls < prev    next >
Encoding:
Text File  |  1996-12-14  |  976 b   |  51 lines
  1. on startMovie
  2.   global donde1
  3.   openDirutil()
  4.   if xfactoryList("Fileio") = EMPTY then
  5.     openXLib("FileIO")
  6.   end if
  7. end
  8.  
  9. on stopMovie
  10.   if xfactoryList("Fileio") <> EMPTY then
  11.     closeXLib("FileIO")
  12.   end if
  13.   closeDirUtil()
  14. end
  15.  
  16. on openDirutil
  17.   global x
  18.   openXLib("DirUtil")
  19.   set x to DirUtil(mnew)
  20. end
  21.  
  22. on closeDirUtil
  23.   global x
  24.   x(mdispose)
  25.   closeXLib("DirUtil")
  26. end
  27.  
  28. on callwww site, donde1
  29.   global x, aFilename, Gmovie, donde1
  30.   if voidp(aFilename) then
  31.     alert("Por favor, localize o seu 'browser' de internet (explorer ou netscape)")
  32.     set f to FileIO(mnew, "?read", "exe")
  33.     if objectp(f) then
  34.       set aFilename to f(mFileName)
  35.       f(mdispose)
  36.     end if
  37.   end if
  38.   if not voidp(aFilename) then
  39.     if (aFilename contains "netscape.exe") or (aFilename contains "iexplore.exe") then
  40.       open(site, aFilename)
  41.     else
  42.       set Temp to Gmovie
  43.       clearGlobals()
  44.       go("nada")
  45.     end if
  46.   else
  47.     clearGlobals()
  48.     go("nada")
  49.   end if
  50. end
  51.